From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Mon, 16 Apr 2007 02:30:04 +0000 (+0000)
Subject: (calc-version): New function.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~819
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=31b64be32601c07b8d60f4d54c8c84e5a319f4a9;p=emacs.git

(calc-version): New function.
---

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index 32dfd5bd8d5..12b1dc6da02 100644
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -1148,6 +1148,11 @@ If nil, selections displayed but ignored.")
 
 (defvar calc-alg-map) ; Defined in calc-ext.el
 
+(defun calc-version ()
+  "Return version of this version of Calc."
+  (interactive)
+  (message (concat "Calc version " calc-version)))
+
 (defun calc-mode ()
   "Calculator major mode.